home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / FixMath (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  2.8 KB  |  79 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. Stores.StoreDesc
  11. TextViews.StdViewDesc
  12. TextViews.ViewDesc
  13. Containers.ViewDesc
  14. Views.ViewDesc
  15. Stores.StoreDesc
  16. TextModels.StdModelDesc
  17. TextModels.ModelDesc
  18. Containers.ModelDesc
  19. Models.ModelDesc
  20. Stores.ElemDesc
  21. Stores.StoreDesc
  22. TextModels.AttributesDesc
  23. Stores.StoreDesc
  24. Geneva
  25. TextModels.AttributesDesc
  26. Stores.StoreDesc
  27. Geneva
  28. StdStamps.StdViewDesc
  29. Views.ViewDesc
  30. Stores.StoreDesc
  31. TextModels.AttributesDesc
  32. Stores.StoreDesc
  33. Geneva
  34. MODULE MacFixMath;
  35. (* cp 
  36.     IMPORT SYSTEM, MacTypes;
  37.     CONST CODE = 1;
  38.     TYPE
  39.         Fixed* = MacTypes.Fixed;
  40.         Fract* = MacTypes.Fract;
  41.     PROCEDURE [CODE] FixMul* (a, b: Fixed): Fixed 0A8H, 068H;
  42.     PROCEDURE [CODE] FixRatio* (numer, denom: INTEGER): Fixed 0A8H, 069H;
  43.     PROCEDURE [CODE] FixRound* (x: Fixed): INTEGER 0A8H, 06CH;
  44.     PROCEDURE [CODE] FracMul* (x, y: Fract): Fract 0A8H, 04AH;
  45.     PROCEDURE [CODE] FixDiv* (x, y: Fixed): Fixed 0A8H, 04DH;
  46.     PROCEDURE [CODE] FracDiv* (x, y: Fract): Fract 0A8H, 04BH;
  47.     PROCEDURE [CODE] FracSqrt* (x: Fract): Fract 0A8H, 049H;
  48.     PROCEDURE [CODE] FracCos* (x: Fixed): Fract 0A8H, 047H;
  49.     PROCEDURE [CODE] FracSin* (x: Fixed): Fract 0A8H, 048H;
  50.     PROCEDURE [CODE] FixATan2* (x, y: LONGINT): Fixed 0A8H, 018H;
  51.     PROCEDURE [CODE] Long2Fix* (x: LONGINT): Fixed 0A8H, 03FH;
  52.     PROCEDURE [CODE] Fix2Long* (x: Fixed): LONGINT 0A8H, 040H;
  53.     PROCEDURE [CODE] Fix2Frac* (x: Fixed): Fract 0A8H, 041H;
  54.     PROCEDURE [CODE] Frac2Fix* (x: Fract): Fixed 0A8H, 042H;
  55. END MacFixMath.
  56. TextControllers.StdCtrlDesc
  57. TextControllers.ControllerDesc
  58. Containers.ControllerDesc
  59. Controllers.ControllerDesc
  60. Stores.StoreDesc
  61. TextRulers.StdRulerDesc
  62. TextRulers.RulerDesc
  63. Views.ViewDesc
  64. Stores.StoreDesc
  65. TextRulers.StdStyleDesc
  66. TextRulers.StyleDesc
  67. Models.ModelDesc
  68. Stores.ElemDesc
  69. Stores.StoreDesc
  70. TextRulers.AttributesDesc
  71. Stores.StoreDesc
  72. TextModels.AttributesDesc
  73. Stores.StoreDesc
  74. Geneva
  75. Documents.ControllerDesc
  76. Containers.ControllerDesc
  77. Controllers.ControllerDesc
  78. Stores.StoreDesc
  79.